home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / FPUSUPPT.M < prev    next >
Encoding:
Text File  |  1991-08-01  |  592 b   |  29 lines
  1.  
  2. MODULE FPUSuppTest;
  3.  
  4. FROM SYSTEM IMPORT LONGWORD, ASSEMBLER;
  5. FROM FPUSupport IMPORT NewContext, SaveContext, RestoreContext, FPUContext;
  6.  
  7. VAR fpu: FPUContext; r: LONGREAL;
  8.  
  9. BEGIN
  10.   NewContext (fpu);
  11.   ASSEMBLER MOVE #3,$FFFA42 BREAK END;
  12.   r:= 1.3;
  13.   r:= r*r+r;
  14.   r:= r*r+r;
  15.   SaveContext (fpu);
  16.   RestoreContext (fpu);
  17.   (*
  18.   SaveContext (fpu);
  19.   RestoreContext (fpu);
  20.   SaveContext (fpu);
  21.   RestoreContext (fpu);
  22.   SaveContext (fpu);
  23.   RestoreContext (fpu);
  24.   SaveContext (fpu);
  25.   RestoreContext (fpu);
  26.   *)
  27.   ASSEMBLER BREAK END;
  28. END (* MODULE *) FPUSuppTest.
  29.